home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / volumes / fxvol4.asc < prev    next >
Encoding:
Text File  |  1994-03-01  |  11.0 KB  |  408 lines
  1.                 VOLUME 4
  2.  
  3.     *** PROGRAMMES CASIO FX 850P ***
  4.      (c) W-Tel RTC (16) 62 93 74 05
  5.  
  6. VOUS  VENEZ  DE TELECHARGER  LE  FICHIER 
  7. FXVOL4.LST  SUR  W-TEL.  CES  PROGRAMMES 
  8. SONT FACILEMENT ADAPTABLES SUR  D'AUTRES 
  9. MICRO.
  10.  
  11. VOUS  POUVEZ SOIT RE-TAPER CES  PRG  SUR 
  12. VOTRE MICRO,  SOIT A L'AIDE DU  LOGICIEL 
  13. TRANSFILE ST850 LES CHARGER  DIRECTEMENT 
  14. SUR  LE CASIO FX850P.  CE  LOGICIEL  EST 
  15. DISTRIBUE PAR OMIKRON FRANCE AU PRIX  DE 
  16. 500FRS ENVIRON.
  17.  
  18. SI  VOUS  AVEZ ECRIT UN SOFT  SUR  CASIO 
  19. FX850P  VENEZ LE METTRE SUR W-TEL  24/24 
  20. AU 62.93.74.05 (BAL WILLY).
  21.  
  22.  
  23.           SOMMAIRE DU VOLUME 4
  24.  
  25.      Robotique.
  26.  
  27.      T‚tris sur Fx850p !!! G‚nial !!!
  28.  
  29.      Poˆmes Casio.
  30.  
  31.      A suivre (09/04/91)...
  32.  
  33.  
  34. **************************
  35.  
  36. Calcul ROBOTIQUE
  37.  
  38. Permet d'exprimer l'outil en fonction du 
  39. repŠre de r‚f‚rence.
  40.  
  41. Donne les matrices de passage...
  42.  
  43. Doc  voir  cours  ROBOTIQUE  ENIT   4Šme 
  44. Ann‚e.
  45.  
  46.  
  47. 10 PRINT "ROBOTIQUE"
  48. 15 MODE 5
  49. 20 CLEAR:DIM A$(4,4),B(4,4),C$(4):P=PI
  50. 50 INPUT "Teta(k-1) ",C$(1):IF C$(1)="" 
  51. THEN C$(1)="0"
  52. 60 INPUT "h(k-1) ",C$(2):IF C$(2)="" 
  53. THEN C$(2)="0"
  54. 70 INPUT "Z(k) ",C$(3):IF C$(3)="" THEN 
  55. C$(3)="0"
  56. 80 INPUT "Gamma(k) ",C$(4):IF C$(4)="" 
  57. THEN C$(4)="0"
  58. 100 A$(1,3)="0":B(1,3)=1
  59. 110 A$(4,1)="0":B(4,1)=1
  60. 120 A$(4,2)="0":B(4,2)=1
  61. 130 A$(4,3)="0":B(4,3)=1
  62. 140 A$(4,4)="1":B(4,4)=1
  63. 150 A$(2,3)="1":B(2,3)=1
  64. 160 A$(3,3)="1":B(3,3)=1
  65. 1000 $=C$(2)
  66. 1010 IF MID$(1,1)="-" THEN 1100
  67. 1015 IF MID$(1,1)<>"0" THEN 1100
  68. 1030 A$(1,4)="0":B(1,4)=1
  69. 1040 GOTO 2000
  70. 1100 A$(1,4)=$:B(1,4)=0
  71. 2000 $=C$(4)
  72. 2010 IF MID$(1,1)="-" THEN 2450
  73. 2020 IF MID$(1,1)="P" THEN 2420
  74. 2030 IF MID$(1,1)="0" THEN 2500
  75. 2100 $=MID$(2,1)
  76. 2110 A$(1,1)="C"+$:B(1,1)=0
  77. 2120 A$(1,2)="-S"+$:B(1,2)=0
  78. 2130 A$(2,1)="S"+$:B(2,1)=0
  79. 2140 A$(2,2)="C"+$:B(2,2)=0
  80. 2150 A$(3,1)="S"+$:B(3,1)=0
  81. 2160 A$(3,2)="C"+$:B(3,2)=0
  82. 2200 GOTO 3000
  83. 2420 D$=MID$(3):C=PI/VALF(D$):GOTO 2505
  84. 2450 D$=MID$(4):C=-PI/VALF(D$):GOTO 2505
  85. 2500 C=VALF($)
  86. 2505 S=SINC:C=COSC
  87. 2510 A$(1,1)=STR$(C):B(1,1)=1
  88. 2520 A$(1,2)=STR$(-S):B(1,2)=1
  89. 2530 A$(3,1)=STR$(S):B(2,1)=1
  90. 2540 A$(2,2)=STR$(C):B(2,2)=1
  91. 2550 A$(3,1)=STR$(S):B(3,1)=1
  92. 2560 A$(3,2)=STR$(C):B(3,2)=1
  93. 3000 $=C$(3)
  94. 3010 IF MID$(1,1)="-" THEN 3100
  95. 3015 IF MID$(1,1)<>"0" THEN 3100
  96. 3030 A$(2,4)="0":B(2,4)=1
  97. 3035 A$(3,4)="0":B(3,4)=1
  98. 3040 GOTO 4000
  99. 3100 A$(2,4)=$:B(2,4)=0
  100. 3105 A$(3,4)=$:B(3,4)=0
  101. 4000 $=C$(1)
  102. 4100 IF MID$(1,1)="P" THEN 4120
  103. 4110 IF MID$(1,1)="-" THEN 4150
  104. 4115 GOTO 4500
  105. 4120 D$=MID$(3):C=PI/VALF(D$):GOTO 5000
  106. 4150 D$=MID$(4):C=-PI/VALF(D$):GOTO 5000
  107. 4500 C=VALF($)
  108. 5000 S=SINC:C=COSC
  109. 6000 FOR I=2 TO 3:FOR J=1 TO 
  110. 4:P$=A$(I,J)
  111. 7000 IF I=3 THEN 7500
  112. 7010 IF J<=2 THEN V=C:GOTO 7990
  113. 7030 V=-S:GOTO 7990
  114. 7500 IF J<=2 THEN V=S:GOTO 7990
  115. 7530 V=C
  116. 7990 GOSUB 9000
  117. 7992 A$(I,J)=$
  118. 7995 NEXT J:NEXT I
  119. 7999 GOSUB 8000:END
  120. 8000 FOR I=1 TO 4
  121. 8010 PRINT I;"[";:FOR J=1 TO 4:PRINT 
  122. A$(I,J);" ";:NEXT J
  123. 8020 PRINT "]":NEXT I:RETURN
  124. 9000 IF B(I,J)=0 THEN 9500
  125. 9020 IF P$="" THEN P$="0"
  126. 9021 Z=VALF(P$):Z=Z*V:$=STR$(Z):RETURN
  127. 9500 IF V=1 THEN $=P$:RETURN
  128. 9510 IF V=0 THEN $="0":RETURN
  129. 9560 $=P$
  130. 9570 IF MID$(1,1)="-" THEN 9700
  131. 9580 $="-"+$:RETURN
  132. 9700 $=MID$(2):RETURN
  133.  
  134.  
  135. **************************
  136.  
  137. TETRIS (c)Yann Lechelle
  138.  
  139. Jeu  de  TETRIS sur  Fx850p.  Oui  c'est 
  140. possible Yann l'a fait pour nous.
  141.  
  142. - et / pour vous d‚placer … gauche et  … 
  143. droite.
  144. + et * pour tourner l'objet.
  145.  
  146. Attention   …  votre  m‚moire   !   RP-8 
  147. mininmum !
  148.  
  149.  
  150. 1 REM (C) YANN LECHELLE 1990
  151. 2 REM CLEAR 8000
  152. 5000 CLS :CLEAR: 
  153. DEFCHR$(253)="0E0E0E0E0E": 
  154. DEFCHR$(254)="E0E0E0E0E0": 
  155. DEFCHR$(255)="EEEEEEEEEE": 
  156. DEFCHR$(252)="62949890FE": PRINT " ***** 
  157. TET";CHR$(252);"IS ***** ";
  158. 5001 DATA 4,2,1,1,2,1,1,2,2,2,0,0,0,0
  159. 5002 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0
  160. 5003 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0
  161. 5004 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0
  162. 5005 DATA 4,2,1,1,1,2,1,3,2,3,0,0,3,1
  163. 5006 DATA 4,3,3,1,3,2,2,2,1,2,0,0,0,2
  164. 5007 DATA 4,2,1,1,2,1,2,2,2,3,0,0,1,3
  165. 5008 DATA 4,3,1,1,1,2,2,1,3,1,0,0,2,0
  166. 5009 DATA 3,1,1,1,1,2,1,3,0,0,0,0,1,1
  167. 5010 DATA 3,3,1,1,2,1,3,1,0,0,0,0,0,0
  168. 5011 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0
  169. 5012 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0
  170. 5013 DATA 5,3,2,1,1,2,2,2,3,2,2,3,0,0
  171. 5014 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0
  172. 5015 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0
  173. 5016 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0
  174. 5017 DATA 4,2,2,1,2,2,2,3,1,3,0,0,1,3
  175. 5018 DATA 4,3,1,1,1,2,2,2,3,2,0,0,2,0
  176. 5019 DATA 4,2,1,1,2,1,1,2,1,3,0,0,3,1
  177. 5020 DATA 4,3,1,1,2,1,3,1,3,2,0,0,0,2
  178. 5021 DATA 4,3,2,1,3,1,1,2,2,2,0,0,1,1
  179. 5022 DATA 4,2,1,1,1,2,2,2,2,3,0,0,0,0
  180. 5023 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0
  181. 5024 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0
  182. 5025 DATA 4,3,1,1,2,1,2,2,3,2,0,0,1,1
  183. 5026 DATA 4,2,2,1,1,2,2,2,1,3,0,0,0,0
  184. 5027 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0
  185. 5028 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0
  186. 5030 RESTORE 5001:DIM 
  187. PCE(6,3,13),SC(16,30):FOR I=0 TO 6:FOR 
  188. J=0 TO 3:FOR K=0 TO 13:READ 
  189. PCE(I,J,K):NEXT K:NEXT J:LOCATE 
  190. 2,1:PRINT INT(I*100/7)+15;"% Loaded";:
  191. NEXT I
  192. 5040 DIM P$(3):CLS:FOR I=0 TO 7:LOCATE 
  193. 15,I:PRINT CHR$(144+I);:NEXT 
  194. I:P$(1)=CHR$(253): P$(2)=CHR$(254) 
  195. :P$(3)=CHR$(255): P$(0)=" "
  196. 5045 FOR I=0 TO 16:SC(I,15)=1:NEXT I:FOR 
  197. I=0 TO 7:LOCATE 14,I:PRINT 
  198. CHR$(135);:NEXT I
  199. 5050 P=INT(RAN#*7):R=0:X=6:Y=1
  200. 5060 GOSUB 5500:IF OK=1 THEN 5400
  201. 5065    FOR    I=1    TO     PCE(P,R,0): 
  202. SC(X+PCE(P,R,I*2), 
  203. Y+PCE(P,R,I*2+1))=1:NEXT I
  204. 5070 XX=INT((13-
  205. X)/2):Z=INT(X/2)*2:LOCATE Y,XX:PRINT 
  206. P$(-(SC(Z+3,Y+1)=1)-2*(SC(Z+4,Y+1)=1));
  207. 5071 PRINT P$(-(SC(Z+3,Y+2)=1)-
  208. 2*(SC(Z+4,Y+2)=1));
  209. 5072 PRINT P$(-(SC(Z+3,Y+3)=1)-
  210. 2*(SC(Z+4,Y+3)=1));
  211. 5073 LOCATE Y,XX+1:PRINT P$(-
  212. (SC(Z+1,Y+1)=1)-2*(SC(Z+2,Y+1)=1));
  213. 5074 PRINT P$(-(SC(Z+1,Y+2)=1)-
  214. 2*(SC(Z+2,Y+2)=1));
  215. 5075 PRINT P$(-(SC(Z+1,Y+3)=1)-
  216. 2*(SC(Z+2,Y+3)=1));
  217. 5076    FOR    I=1    TO     PCE(P,R,0): 
  218. SC(X+PCE(P,R,I*2), 
  219. Y+PCE(P,R,I*2+1))=0:NEXT I
  220. 5079 K$=INKEY$:XS=X:RR=R:GOSUB 5450
  221. 5080 Y=Y+1:GOSUB 5500:IF OK=1 THEN Y=Y-
  222. 1:X=XS:R=RR:GOTO 5400 ELSE LOCATE Y-
  223. 1,XX:PRINT P$(-(SC(Z+3,Y)=1)-
  224. 2*(SC(Z+4,Y)=1));"   ";:LOCATE Y-
  225. 1,XX+1:PRINT P$(-(SC(Z
  226. +1,Y)=1)-2*(SC(Z+2,Y)=1));"   ";
  227. 5090 GOTO 5065
  228. 5400 IF Y>1 THEN 5420
  229. 5410 CLS:PRINT "GAME OVER":END
  230. 5420    FOR    I=1    TO     PCE(P,R,0): 
  231. SC(X+PCE(P,R,I*2), 
  232. Y+PCE(P,R,I*2+1))=1:NEXT I:GOTO 5050
  233. 5450 IF K$="-" THEN X=X-1:IF X<2 THEN 
  234. X=2
  235. 5451 IF K$="/" THEN X=X+1:IF X>15 THEN 
  236. X=15
  237. 5452 IF K$="*" THEN R=PCE(P,R,12)
  238. 5453 IF K$="+" THEN R=PCE(P,R,13)
  239. 5454 IF K$="." THEN GOSUB 5555
  240. 5455 RETURN
  241. 5500 OK=0:FOR I=1 TO PCE(P,R,0):IF 
  242. SC(X+PCE(P,R,I*2),Y+PCE(P,R,I*2+1))=1 
  243. THEN OK=1:RETURN
  244. 5505 NEXT I
  245. 5510 RETURN
  246. 5555 I=XX
  247. 5556 K$=INKEY$:IF K$"-" THEN I=I+1:IF 
  248. I>6 THEN I=7
  249. 5557 IF K$="/" THEN I=I-1:IF I<1 THEN 
  250. I=0
  251. 5558 LOCATE 0,I:IF K$<>"E" THEN 5556 
  252. ELSE RETURN
  253.  
  254.  
  255. **************************
  256.  
  257. Le poˆte CASIO !
  258.  
  259. Sans Commentaire, sauf qu'il prend de la 
  260. place et vous sort de beaux poˆmes  pour 
  261. votre amie...
  262.  
  263.  
  264. 5    CLEAR:DIMN$(50),N(50),C$(9,1),B(4), 
  265. Z$(30),A(4)
  266. 9 DATA UN TEMPS POUR,C,1,1,N,1,1,", UN 
  267. TEMPS POUR",C,2,1,N,1,2,", UN TEMPS 
  268. POUR",C,1,1,N,1,1,C,2,3,N,1,2,F,N,0,1, 
  269. SANS,N,0,2,N'EST 
  270. RIEN;,N,0,2,SANS,N,0,1,NE   VAUT   GUERE 
  271. MIEUX,F
  272. 10 DATA IL EST PLUS AISE DE 
  273. SUPPORTER,C,1,1,N,1,1,QUE,C,2,1,N,1, 
  274. 2,F,C,1,1,N,1,1,NE                SERAIT 
  275. PAS,N,0,1,C,1,2,N'ETAIT 
  276. PAS,N,0,2,F,MIEUX 
  277. VAUT,N,0,1,AVEC,N,0,2,QUE,N,1,3,AVEC, 
  278. N,0,4,F
  279. 11 DATA MIEUX 
  280. VAUT,N,0,1,SANS,N,0,2,QUE,N,1,3,SANS, 
  281. N,0,4,F,UN                           PEU 
  282. DE,N,1,1,ELOIGNE,C,2,3,N,1,2,", BEAUCOUP 
  283. EN   RAPPROCHE",F,LE   CHEMIN   QUI   VA 
  284. VERS,C,1,1,N,1,1,PASSE PAR,C,2,1,N,1,2,F
  285. 12 DATA 
  286. NI,C,1,1,N,1,1,NI,C,2,1,N,1,2,"NE NOUS 
  287. MANQUENT, 
  288. MAIS",C,3,1,N,1,3,F,N,0,1,DELIVRE 
  289. DE,N,1,2,", MAIS QUI NOUS DELIVRERA 
  290. DE",N,1,3,F,ON N'EVITE,N,0,1,QUE POUR 
  291. TOMBER DANS,N,0,2,F,IL Y 
  292. A,C,1,3,N,1,1,DANS,C,2,1,N,1,2,MAIS 
  293. JAMAIS DANS,C,3,1,N,1,3,F
  294. 13 DATA IL N'Y A PAS DE,N,1,1,LA OU IL 
  295. N'Y A PAS 
  296. DE,N,1,2,F,DERRIERE,C,1,1,N,1,1,IL N'Y A 
  297. SOUVENT QUE,N,1,2,F,N,0,1,DOIT 
  298. DEVENIR,N,0,2,COMME,N,0,3,DOIT 
  299. DEVENIR,N,0,4,F,N,0,1,EST A,N,0,2,CE 
  300. QUE,N,1,2,EST A,N,0,3,F
  301. 14 DATA IL N'Y A PAS MOINS 
  302. DE,N,1,1,DANS,C,2,1,N,1,2,QUE 
  303. DE,N,1,2,DANS,C,3,1,N,1,3,F,LE BONHEUR 
  304. EST DANS,C,1,1,N,1,1,", NON 
  305. DANS",C,2,1,N,1,2,F,N,0,1,SANS,N,0,2, 
  306. N'EST QUE,N,1,3,SANS,N,0,4,F
  307. 15      DATA     RIEN      NE      PLAIT 
  308. TANT,C,1,9,N,1,1,QUE,C,2,1,N,1,2,F,ON 
  309. RENONCE                             PLUS 
  310. AISEMENT,C,1,9,N,1,1,QU',C,2,9,N,1,2, 
  311. F,CE  QUI VIENT PAR,C,1,1,N,1,1,S'EN  VA 
  312. PAR,C,2,1,
  313. N,1,2,F,A QUOI 
  314. BON,N,0,1,DEVANT,N,0,2,F,N,0,1,EST,C, 
  315. 2,4,N,0,2,C,2,5,VISIBLE,F
  316. 16 DATA 
  317. C,1,1,C,1,6,N,0,1,C'EST,C,2,1,N,1,2, 
  318. F,C,1,1,N,1,1,EST,C,2,4,N,0,2,C,2,7,POUR 
  319. DISSIMULER,C,3,1,N,1,3,F,C,1,1,N,1,1,EST 
  320. LA CONTINUATION,C,2,3,N,1,2,PAR D'AUTRES 
  321. MOYENS,F
  322. 17 DATA LA HAINE,C,1,3,N,1,1,N'EST AUTRE 
  323. QUE 
  324. L'AMOUR,C,2,3,N,1,2,F,QUAND,N,0,1,NOUS 
  325. QUITTE, C'EST QUE,N,1,2,N'EST PAS LOIN,F
  326. 30 DATA 
  327. AMOUR,1,ANGOISSE,3,ECRITURE,3,ENFANCE, 
  328. 3,EXIL,1,MORT,2,NEGATION,2,POEME,0, 
  329. MEMOIRE,2,MYTHE,0,TEMPS,0, 
  330. MATIERE,2,OUBLI,1,SILENCE,0,ESPACE,1, 
  331. NATURE,2,MESURE,2,CORPS,0,AVENIR,1, 
  332. GOUT,0,PLAISIR,0,FIN,2,PERFECTION,2, 
  333. RYTHME,0,SENTIMENT,0
  334. 31 DATA 
  335. FORME,2,SCIENCE,2,LIBERTE,2,PRESENT,0, 
  336. PASSE,0,HORREUR,3,VOLUPTE,2,MYSTERE,0, 
  337. HARMONIE,3,CONFLIT,0,ODEUR, 
  338. 3,PARFUM,0,MALADIE,2,BONHEUR,0,BEAUTE, 
  339. 2,RAISON,2,OBSTACLE,1,GUERRE,2, 
  340. POLITIQUE,2,IGNORANCE,3,DEGOUT,0, 
  341. PATIENCE, 2,POUVOIR,0,HAINE,3,LAIDEUR,2
  342. 50 DATA LE,LA,S'IL,SI ELLE,DU,DE 
  343. LA,UN,UNE,DEVENU,DEVENUE,SEUL,SEULE, 
  344. INVENTE,INVENTEE,LUI,ELLE,AU,A LA
  345. 70 FORI=1TO463:READA$:NEXT:  FORI=1TO50: 
  346. READN$(I),     N(I):NEXT:     FORI=1TO9: 
  347. READC$(I,0), C$(I,1): NEXT
  348. 100       CLS:        INPUT"INDIQUEZ VOS 
  349. PRENOM ET NOM      ";   X$:  CLS:  PRINT 
  350. "LES APHORISMES DE";:  Y$=X$: GOSUB1111: 
  351. PRINTX$;" :"
  352. 110 FORK=1TOLEN(X$):X=ASC(MID(X$,K,1)): 
  353. IF(X>64)AND(X<91) THEN X=X-
  354. 64 ELSE IFX=32 THEN X=29 ELSE IFX=45 
  355. THEN X=27 ELSE IFX=39 THEN X=28 ELSE100
  356. 120 RESTORE:FORL=2TOX
  357. 130 READA$:IFA$="F"THEN NEXTL ELSE130
  358. 135 M=M+1:READZ$(M):IFZ$(M)<>"F" THEN135
  359. 140 FORO=1TOM-1:IFZ$(O)="N"THEN 
  360. B=VAL(Z$(O+2)):             B(B)=(X+K*B-
  361. 1)MOD50+1:A(B)=VAL(Z$(O+1))
  362. 143 NEXTO
  363. 145 FORO=1TOM-
  364. 1:IFZ$(O)="N"THENP=VAL(Z$(O+2)): 
  365. IF(N(B(P))AND1)ANDA(P)THEN 
  366. GOSUB1130:PRINTN$(B(P));:GOTO170 
  367. ELSEPRINT" ";N$(B(P));:GOTO170
  368. 150 IFZ$(O)="C"THENC=VAL(Z$(O+1)): 
  369. D=VAL(Z$(O+2)):C=(N(B(C))AND2)/2: 
  370. PRINT" ";C$(D,C);:GOTO170
  371. 160 IFLEN(Z$(O))>1 THENPRINT" ";Z$(O);
  372. 170 NEXTO:PRINT"":M=0:NEXTK:C=0:GOTO100
  373. 1111 I$=LEFT$(Y$,1):IF(I$="A")OR 
  374. (I$="E")OR(I$="I")OR(I$="O")OR(I$="U") 
  375. OR(I$="H")THEN1130
  376. 1115 IFI$<>"Y"THENPRINT" ";:GOTO1140
  377. 1120 J$=MID$(Y$,2,1):IF(J$="A")OR 
  378. (J$="E")OR(J$="I")OR(J$="O")OR(J$="U") 
  379. THENPRINT" ";:GOTO1140
  380. 1130 IF(C=1)AND((D=3)OR(D=9))THEN 
  381. PRINTCHR$(29);CHR$(29);C$(D,1);
  382. 1135 PRINTCHR$(29);"'";
  383. 1140 RETURN
  384.  
  385.  
  386.  
  387. **************************
  388.  
  389. **************************
  390.  
  391. C'est  tout pour  l'instant,  mais  vous 
  392. pouvez   m'en   envoyer   …    l'adresse 
  393. suivante:
  394.  
  395.           Saint-Cricq William
  396.           9 R‚sidence Bel Air
  397.               65000 TARBES
  398.  
  399.  
  400.  
  401.  
  402.  
  403. ATTENTION:  CES  PROGRAMMES  NE  PEUVENT 
  404. ETRE VENDUS.  ILS SONT DU DOMAINE PUBLIC 
  405. ET SONT DISTRIBUES PAR W-TEL.
  406.  
  407.  
  408.